home *** CD-ROM | disk | FTP | other *** search
/ Aminet 2 / Aminet AMIGA CDROM (1994)(Walnut Creek)[Feb 1994][W.O. 44790-1].iso / Aminet / dev / lang / false11.lha / False_v1.1 / other / split.f < prev    next >
Text File  |  1992-09-02  |  631b  |  29 lines
  1. {split.f}
  2.  ^a:[a;32=][^a:]#       { read operand for split: front/back }
  3.  
  4.  a;'f=a;'b=|^32=&$      { a has to be 'f' of 'b' followed by a space }
  5.  [
  6.   { read number in b }
  7.    0b:^
  8.      [c:'0 c;>~'91+c;>&]
  9.      [b;10*b:c;'0-b;+b:^]
  10.      #
  11.   { number read in b }
  12.   0c:
  13.   a;'f=
  14.   [ [^$d:1_=~c;b;=~&][c;1+c:d;,]#
  15.   ]?
  16.   a;'b=
  17.   [ [^$d:1_=~c;b;=~][c;1+c:]#
  18.     [^$d:1_=~][d;,]#
  19.   ]?
  20.  ]?
  21.  ~[     {not right syntax }
  22.    "split: Wrong arguments.
  23.     SYNTAX:   Split f|b number <filename_in >filename_out
  24.               f|b stands for what to put in filename_out: Front or Back
  25.               number stands for where to split the file.
  26. " ]?
  27.  
  28.  
  29.